home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / lists / mint / l_1199 / 1687 < prev    next >
Encoding:
Internet Message Format  |  1994-08-27  |  11.5 KB
  1. Subject: Re: some more 110h4 clues...
  2. Date: Fri, 8 Jul 94 22:23:10 CDT
  3. From: Juergen Lock <nox@jelal.north.de>
  4. In-Reply-To: <9407051959.AA09735@pirol.techfak.uni-bielefeld.de>; from "itschere@TechFak.Uni-Bielefeld.DE" at Jul 5, 94 9:59 pm
  5. Message-Id: <9407082023.AA00649@jelal.north.de>
  6.  
  7. itschere@TechFak.Uni-Bielefeld.DE writes:
  8.  
  9. > > If my memory serves me right, this is the upwards pointer to the
  10. > > parent process' basepage.
  11. > 
  12. >  It *is*.
  13.  
  14.  here's the fix :)  and something else for you all to test...
  15.  
  16. 1. exec and base->p_parent...
  17.  
  18. Index: mem.c
  19. @@ -1137,8 +1137,8 @@
  20.      long len = 0, minalt = 0, coresize, altsize;
  21.      MMAP map;
  22.      MEMREGION *m, *savemem = 0;
  23. -    BASEPAGE *b;
  24. -    PROC *parent = 0;    /* keep compiler happy... */
  25. +    BASEPAGE *b, *bparent = 0;
  26. +    PROC *parent = 0;
  27.      short protmode;
  28.      int i;
  29.  
  30. @@ -1252,8 +1252,15 @@
  31.          execproc->ctxt[SYSCALL].sr |= 0x2000;
  32.          execproc->ctxt[SYSCALL].ssp = (long)(execproc->stack + ISTKSIZE);
  33.  
  34. -        if (savemem)
  35. -            fork_restore(parent, savemem);
  36. +/* save basepage p_parent */
  37. +        bparent = execproc->base->p_parent;
  38. +        if (parent) {
  39. +            if (savemem)
  40. +                fork_restore(parent, savemem);
  41. +/* blocking forks keep the same basepage for parent and child,
  42. +   so this p_parent actually was our grandparents...  */
  43. +            bparent = parent->base;
  44. +        }
  45.          for (i = 0; i < execproc->num_reg; i++) {
  46.              m = execproc->mem[i];
  47.              if (m && m->links == 0xfffe) {
  48. @@ -1323,6 +1330,11 @@
  49.      b->p_env = (char *)env->loc;
  50.      b->p_flags = flags;
  51.  
  52. +    if (execproc) {
  53. +        execproc->base = b;
  54. +        b->p_parent = bparent;
  55. +    }
  56. +
  57.      if (cmd)
  58.          strncpy(b->p_cmdlin, cmd, 126);
  59.      return m;
  60.  
  61. 2. serial lines...  use the xcon* pointers etc. available thru
  62. Bconmap(-2), set DTR on SCC ports and hack around a bunch of BIOS bugs
  63. while we're at it, including TIOCSBRK for SCC ports.  you still need to
  64. load debugged drivers (before MiNT!) to get reliable flow control and
  65. stop losing chars on all TOS versions _i_ know, your mileage may vary...
  66. at least the remaining bugs should not affect the rest of the system
  67. anymore. (except for the mega STe SCC/DMA hardware bug of course...)
  68.  
  69. please test this, hard. :)  the MAPTAB stuff is official (its mentioned
  70. in `Profibuch') but i don't know yet if it works as advertised everywhere
  71. including falcons...  if it does i think we can finally implement local
  72. mode, fast RAW IO without hacks in user processes, real cooked mode, etc.
  73.  
  74. Index: types.h
  75. @@ -19,4 +19,13 @@
  76.      short buflen, head, tail, low_water, hi_water;
  77.  } IOREC_T;
  78.  
  79. +/* Bconmap struct, * returned by Bconmap(-2) */
  80. +typedef struct {
  81. +    struct {
  82. +        long bconstat, bconin, bcostat, bconout, rsconf;
  83. +        IOREC_T    *iorec;
  84. +    } *maptab;
  85. +    short    maptabsize;
  86. +} BCONMAP2_T;
  87. +
  88.  #endif
  89. Index: bios.c
  90. @@ -11,6 +11,12 @@
  91.  #include "mint.h"
  92.  #include "xbra.h"
  93.  
  94. +#ifdef __GNUC__
  95. +#define INLINE inline
  96. +#else
  97. +#define INLINE
  98. +#endif
  99. +
  100.  #define UNDEF 0        /* should match definition in tty.c */
  101.  
  102.  /* some key definitions */
  103. @@ -66,6 +72,34 @@
  104.  #define xcostat ((long *)0x55eL)
  105.  #define xconout    ((long *)0x57eL)
  106.  
  107. +#if 1
  108. +/* if the system has Bconmap the ones >= 6 are in a table available
  109. + * thru Bconmap(-2)...
  110. + */
  111. +#define MAPTAB (bconmap2->maptab)
  112. +
  113. +/* and then do BCOSTAT ourselves, the BIOS SCC ones are often broken */
  114. +#define BCOSTAT(dev) \
  115. +    (((unsigned)dev <= 4 && tosvers > 0x0102) ? \
  116. +       (int)callout1(xcostat[dev], dev) : \
  117. +       ((has_bconmap && (unsigned)((dev-SERDEV) <= btty_max)) ? \
  118. +        bcxstat(MAPTAB[dev-SERDEV].iorec+1) : Bcostat(dev)))
  119. +#define BCONOUT(dev, c) \
  120. +    (((unsigned)dev <= 4 && tosvers > 0x0102) ? \
  121. +       callout2(xconout[dev], dev, c) : \
  122. +       ((has_bconmap && (unsigned)((dev-SERDEV) <= btty_max)) ? \
  123. +        callout2(MAPTAB[dev-SERDEV].bconout, dev, c) : Bconout(dev, c)))
  124. +#define BCONSTAT(dev) \
  125. +    (((unsigned)dev <= 4 && tosvers > 0x0102) ? \
  126. +       (int)callout1(xconstat[dev], dev) : \
  127. +       ((has_bconmap && (unsigned)((dev-SERDEV) <= btty_max)) ? \
  128. +        (int)callout1(MAPTAB[dev-SERDEV].bconstat, dev) : Bconstat(dev)))
  129. +#define BCONIN(dev) \
  130. +    (((unsigned)dev <= 4 && tosvers > 0x0102) ? \
  131. +       callout1(xconin[dev], dev) : \
  132. +       ((has_bconmap && (unsigned)((dev-SERDEV) <= btty_max)) ? \
  133. +        callout1(MAPTAB[dev-SERDEV].bconin, dev) : Bconin(dev)))
  134. +#else
  135.  #define BCOSTAT(dev) \
  136.      ((tosvers > 0x0102 && (unsigned)dev <= 4) ? \
  137.         (int)callout1(xcostat[dev], dev) : Bcostat(dev))
  138. @@ -78,6 +112,7 @@
  139.  #define BCONIN(dev) \
  140.      ((tosvers > 0x0102 && (unsigned)dev <= 4) ? \
  141.         callout1(xconin[dev], dev) : Bconin(dev))
  142. +#endif
  143.  #else
  144.  #define BCOSTAT(dev) Bcostat(dev)
  145.  #define BCONOUT(dev,c) Bconout(dev,c)
  146. @@ -87,8 +122,19 @@
  147.  
  148.  /* variables for monitoring the keyboard */
  149.  IOREC_T    *keyrec;        /* keyboard i/o record pointer */
  150. +BCONMAP2_T *bconmap2;        /* bconmap struct */
  151.  short    kintr = 0;        /* keyboard interrupt pending (see intr.s) */
  152.  
  153. +/* replacement *costat for BCOSTAT above */
  154. +INLINE static int bcxstat (wrec)
  155. +IOREC_T *wrec;
  156. +{
  157. +    unsigned s = wrec->head - wrec->tail;
  158. +    if ((int)s <= 0)
  159. +        s += wrec->buflen;
  160. +    return s < 3 ? 0 : -1;
  161. +}
  162. +
  163.  /* Getmpb is not allowed under MiNT */
  164.  
  165.  long ARGS_ON_STACK
  166. @@ -746,6 +792,8 @@
  167.  init_bios()
  168.  {
  169.      keyrec = (IOREC_T *)Iorec(1);
  170. +    if (has_bconmap)
  171. +        bconmap2 = (BCONMAP2_T *)Bconmap(-2);
  172.  }
  173.  
  174.  /*
  175. Index: xbios.c
  176. @@ -23,6 +23,9 @@
  177.               * of TOS which supports Bconmap
  178.               */
  179.  
  180. +extern BCONMAP2_T *bconmap2;        /* bconmap struct */
  181. +#define MAPTAB (bconmap2->maptab)
  182. +
  183.  /*
  184.   * Supexec() presents a lot of problems for us: for example, the user
  185.   * may be calling the kernel, or may be changing interrupt vectors
  186. @@ -143,8 +146,12 @@
  187.      int dev;
  188.  {
  189.      TRACE(("Iorec(%d)", dev));
  190. -    if (dev == 0 && has_bconmap)
  191. +    if (dev == 0 && has_bconmap) {
  192. +/* get around another BIOS Bug:  in (at least) TOS 2.05 Iorec(0) is broken */
  193. +        if (curproc->bconmap >= 6)
  194. +            return (long)MAPTAB[curproc->bconmap-6].iorec;
  195.          mapin(curproc->bconmap);
  196. +    }
  197.      return (long)Iorec(dev);
  198.  }
  199.  
  200. @@ -155,12 +162,21 @@
  201.      long rsval;
  202.      static int oldbaud = -1;
  203.      int ret_oldbaud = 0;
  204. +    extern struct tty ttmfp_tty;
  205. +    extern struct bios_tty bttys[];
  206. +    extern short btty_max;
  207.  
  208.      TRACE(("Rsconf(%d,%d,%d,%d,%d,%d)", baud, flow,
  209.          uc, rs, ts, sc));
  210.  
  211. -    if (has_bconmap)
  212. +    if (has_bconmap) {
  213.          mapin(curproc->bconmap);
  214. +/* more bugs...  serial1 is three-wire, requesting hardware flowcontrol
  215. + * on it can confuse BIOS
  216. + */
  217. +        if ((flow & 2) && (unsigned)curproc->bconmap-6 <= btty_max &&
  218. +            bttys[curproc->bconmap-6].rsel == &(ttmfp_tty.rsel))
  219. +            flow &= ~2;
  220.  
  221.  #ifndef DONT_ONLY030_THIS
  222.  /* Note: the code below must be included, even on a 68030, thanks to a bug
  223. @@ -177,7 +193,7 @@
  224.      3. Rsconf() discards any buffered output
  225.          -> use Iorec() to ensure all buffered data was sent before call
  226.  */
  227. -    else if (tosvers < 0x0104) {
  228. +    } else if (tosvers < 0x0104) {
  229.          if (baud == -2) {
  230.              ret_oldbaud = 1;
  231.              baud = -1;
  232. Index: biosfs.c
  233. @@ -6,6 +6,12 @@
  234.  
  235.  /* simple biosfs.c */
  236.  
  237. +#ifdef __GNUC__
  238. +#define INLINE inline
  239. +#else
  240. +#define INLINE
  241. +#endif
  242. +
  243.  #include "mint.h"
  244.  
  245.  extern struct kerinfo kernelinfo;    /* see main.c */
  246. @@ -146,6 +152,38 @@
  247.      {"", 0, 0, 0, 0, 0}
  248.  };
  249.  
  250. +extern BCONMAP2_T *bconmap2;        /* bconmap struct */
  251. +#define MAPTAB (bconmap2->maptab)
  252. +
  253. +/* set/reset bits in SCC w5 */
  254. +INLINE static void scc_set5 (control, setp, bits, iorec)
  255. +volatile char *control;
  256. +int setp;
  257. +unsigned char bits;
  258. +IOREC_T *iorec;
  259. +{
  260. +    volatile char dummy;
  261. +
  262. +    short sr = spl7();
  263. +
  264. +#if 1
  265. +/* sanity check: if the w5 copy at offset 1d has bit 3 off something is wrong */
  266. +    if (!(((char *) iorec)[0x1d] & 8)) {
  267. +        spl(sr);
  268. +        ALERT ("scc_set5: iorec %lx w5 copy has sender enable bit off, w5 not changed", iorec);
  269. +        return;
  270. +    }
  271. +#endif
  272. +    dummy = *((volatile char *) 0xfffffa01);
  273. +    *control = 5;
  274. +    dummy = *((volatile char *) 0xfffffa01);
  275. +    if (setp)
  276. +        *control = (((char *) iorec)[0x1d] |= bits);
  277. +    else
  278. +        *control = (((char *) iorec)[0x1d] &= ~bits);
  279. +    spl(sr);
  280. +}
  281. +
  282.  #define    MAX_BTTY    4    /* 4 bios_tty structs */
  283.  
  284.  struct bios_tty bttys[MAX_BTTY];
  285. @@ -231,12 +269,16 @@
  286.              b->next = 0;
  287.              break;
  288.          }
  289. -    /* SERIAL2 is not present on the Mega STe or Falcon */
  290. +    /* SERIAL1(!) is not present on the Mega STe or Falcon,
  291. +     * device 8 is SCC channel A
  292. +     */
  293.          if (mch != TT && b->private == 8) {
  294. +            b->name[6] = '2';    /* "serial2" */
  295. +            b->tty = &scca_tty;
  296.              b->next = 0;
  297.              break;
  298.          }
  299. -            
  300. +
  301.      }
  302.      bdevlast = b;
  303.      if (b->name[0] == 0) {
  304. @@ -1347,7 +1389,6 @@
  305.          break;
  306.      case TIOCFLUSH:
  307.          {
  308. -        int oldmap;
  309.          IOREC_T *ior;
  310.          int flushtype;
  311.          short sr;
  312. @@ -1360,13 +1401,10 @@
  313.              flushtype = (int) *r;
  314.          }
  315.          if (dev == 1 || dev >= 6) {
  316. -/* trick uiorec into setting the correct port (it uses curproc->bconmap) */
  317. -            oldmap = curproc->bconmap;
  318. -            if (has_bconmap)
  319. -                curproc->bconmap = (dev == 1)
  320. -                        ? curproc->bconmap
  321. -                        : dev;
  322. -            ior = (IOREC_T *) uiorec(0);
  323. +            if (has_bconmap && dev >= 6)
  324. +                ior = MAPTAB[dev-6].iorec;
  325. +            else
  326. +                ior = (IOREC_T *) uiorec(0);
  327.              if (flushtype & 1) {
  328.                  sr = spl7();
  329.                  ior->head = ior->tail = 0;
  330. @@ -1378,7 +1416,6 @@
  331.                  ior->head = ior->tail = 0;
  332.                  spl(sr);
  333.              }
  334. -            curproc->bconmap = oldmap;
  335.          } else if (dev == 3 || dev == 2 || dev == 5) {
  336.              if (dev == 3) {
  337.                  /* midi */
  338. @@ -1397,23 +1434,18 @@
  339.          }
  340.      case TIOCOUTQ:
  341.          {
  342. -        int oldmap;
  343.          IOREC_T *ior;
  344.  
  345.          dev = f->fc.aux;
  346.  
  347.          if (dev == 1 || dev >= 6) {
  348. -/* trick uiorec into setting the correct port (it uses curproc->bconmap) */
  349. -            oldmap = curproc->bconmap;
  350. -            if (has_bconmap)
  351. -                curproc->bconmap = (dev == 1)
  352. -                        ? curproc->bconmap
  353. -                        : dev;
  354. -            ior = (IOREC_T *) uiorec(0) + 1;
  355. +            if (has_bconmap && dev >= 6)
  356. +                ior = MAPTAB[dev-6].iorec + 1;
  357. +            else
  358. +                ior = (IOREC_T *) uiorec(0) + 1;
  359.              *r = ior->tail - ior->head;
  360.              if (*r < 0)
  361.                  *r += ior->buflen;
  362. -            curproc->bconmap = oldmap;
  363.          }
  364.           else
  365.              *r = 0;
  366. @@ -1450,9 +1482,14 @@
  367.                  oldbaud = baudmap[i];
  368.              *r = oldbaud;
  369.              if (newbaud > 0) {
  370. -    /* BUG: assert DTR works only on modem1 */
  371. +    /* assert DTR works only on modem1 and SCC lines */
  372.                  if (dev == 1 || dev == 6) {
  373.                      Offgibit(0xef);
  374. +                } else if (dev == 7 ||
  375. +                       ((struct tty *)f->devinfo) == &scca_tty) {
  376. +                    scc_set5 ((volatile char *) (dev == 7 ?
  377. +                            0xffff8c85L : 0xffff8c81L),
  378. +                          1, (1 << 7), MAPTAB[dev-6].iorec);
  379.                  }
  380.                  if (newbaud == oldbaud) {
  381.                      curproc->bconmap = oldmap;
  382. @@ -1472,9 +1509,14 @@
  383.                  curproc->bconmap = oldmap;
  384.                  return ERANGE;
  385.              } else if (newbaud == 0L) {
  386. -    /* BUG: drop DTR: works only on modem1 */
  387. +    /* drop DTR: works only on modem1 and SCC lines */
  388.                  if (dev == 1 || dev == 6) {
  389.                      Ongibit(0x10);
  390. +                } else if (dev == 7 ||
  391. +                       ((struct tty *)f->devinfo) == &scca_tty) {
  392. +                    scc_set5 ((volatile char *) (dev == 7 ?
  393. +                            0xffff8c85L : 0xffff8c81L),
  394. +                          0, (1 << 7), MAPTAB[dev-6].iorec);
  395.                  }
  396.              }
  397.              curproc->bconmap = oldmap;
  398. @@ -1500,8 +1542,25 @@
  399.  
  400.          dev = f->fc.aux;
  401.          if (dev == 1 || dev >= 6) {
  402. -            if (has_bconmap)
  403. -                mapin((dev == 1) ? curproc->bconmap : dev);
  404. +            if (has_bconmap) {
  405. +                if (dev == 1)
  406. +                    dev = curproc->bconmap;
  407. +/* YABB (Yet Another BIOS Bug):
  408. +   SCC Rsconf looks for the break bit in the wrong place...  if this
  409. +   dev's Rsconf is in ROM do it ourselves, otherwise assume the user
  410. +   has installed a fix.
  411. +*/
  412. +                if ((dev == 7 ||
  413. +                     ((struct tty *)f->devinfo) == &scca_tty) &&
  414. +                    MAPTAB[dev-6].rsconf > 0xe00000L &&
  415. +                    MAPTAB[dev-6].rsconf < 0xefffffL) {
  416. +                    scc_set5 ((volatile char *) (dev == 7 ?
  417. +                            0xffff8c85L : 0xffff8c81L),
  418. +                          (mode == TIOCSBRK), (1 << 4), MAPTAB[dev-6].iorec);
  419. +                    break;
  420. +                }
  421. +                mapin(dev);
  422. +            }
  423.          } else {
  424.              return EINVFN;
  425.          }
  426. -- 
  427. J"urgen Lock / nox@jelal.north.de / UUCP: ..!uunet!unido!uniol!jelal!nox
  428.                                 ...ohne Gewehr
  429. PGP public key fingerprint =  8A 18 58 54 03 7B FC 12  1F 8B 63 C7 19 27 CF DA 
  430.